home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / simman.arc / COLOURS (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  529b  |  26 lines
  1. 0 GETA$:IFA$=""THEN0
  2. 2 IF A=0 THEN A=1:PRINT"ENTER FILENAME";:INPUT F$
  3. 5 IFA=1THENA=2:d 11,9:d 11,9:d 8,7,0
  4. 10 IFA=2THENA=3:LOAD F$,8,1
  5. 15 C1=7:C2=8:C3=9
  6. 20 GETA$:IFA$=""THEN20
  7. 30 IFA$="1" THEN C1=C1+1:IFC1>15THENC1=0
  8. 40 IFA$="2" THEN C2=C2+1:IFC2>15THENC2=0
  9. 50 IFA$="3" THEN C3=C3+1:IFC3>15THENC3=0
  10. 55 IFA$="R" THEN GOTO 90
  11. 60 d 11,C3:d C2,C1,0
  12. 70 GOTO 20
  13. 90 S=200
  14. 100 d 11,C3:d C2,C1,0
  15. 105 FORN=1TOS:NEXT
  16. 110 d 11,C2:d C1,C3,0
  17. 115 FORN=1TOS:NEXT
  18. 120 d 11,C1:d C3,C2,0
  19. 125 FORN=1TOS:NEXT
  20. 130 GETA$:IFA$="R"THEN 20
  21. 140 IFA$="-"THENS=S*.9
  22. 150 IFA$="+"THENS=S*1.1
  23. 160 IFS<2 THENS=2
  24. 170 GOTO 100
  25. 1000 A=1:GOTO 10
  26.